home *** CD-ROM | disk | FTP | other *** search
/ Flybox Trout (Edition 1) / Flybox Trout (Edition 1).iso / Setup / Support / FlyBox.exe / FlyBox.dxr / 00020.ls < prev    next >
Encoding:
Text File  |  2002-04-15  |  1.1 KB  |  28 lines
  1. property theNetID
  2.  
  3. on exitFrame me
  4.   if voidp(theNetID) or (theNetID = 0) then
  5.     strFirstName = getVariable(sprite(1), "FirstName")
  6.     strSurname = getVariable(sprite(1), "Surname")
  7.     strEMail = getVariable(sprite(1), "EMail")
  8.     strMessage = getVariable(sprite(1), "ContactUs:Message")
  9.     theStr = "http://66.155.19.43/members/EMail.asp?" & urlEncode([#FirstName: strFirstName, #Surname: strSurname, #EMail: strEMail, #message: strMessage])
  10.     put theStr
  11.     theNetID = getNetText(theStr)
  12.   end if
  13.   if netDone(theNetID) then
  14.     if netTextresult(theNetID) <> EMPTY then
  15.       alert("Your message has been sent successfully.")
  16.       setVariable(sprite(1), "ContactUs:Success", "T")
  17.     else
  18.       alert("There has been a problem contacting the Flybox web-site. Please ensure that:" & RETURN & RETURN & "1. You are connected to the Internet." & RETURN & "2. If you are behind a firewall that you have permissions to access the Internet.")
  19.       setVariable(sprite(1), "ContactUs:Success", "F")
  20.     end if
  21.     theNetID = VOID
  22.     setVariable(sprite(1), "Finished", "T")
  23.     go("Finished")
  24.   else
  25.     go(the frame)
  26.   end if
  27. end
  28.